// Do-file that creates Figure 1 showing the effect of the placement policy on
// the initial settlement of refugee immigrants.

// Last changed 2019-01-10 (KOL)

 
  
 foreach yr of numlist 1974/2014 {
    di `yr'
    use "D:\SCB_ConPol\Stata\RTB\RTB_`yr'.dta", clear
    bysort LopNr: egen cID = count(LopNr)
    keep if cID == 1
    bysort Kommun: egen Kommun_Storlek = count(LopNr)
    tempfile RTB`yr'
    keep LopNr Kommun Kommun_Storlek
    gen InvAr = `yr'
    save `RTB`yr''
 } 
 
  use "D:\SCB_ConPol\Stata\RTB\Fodelseuppg", clear
  bysort LopNr: egen cID = count(LopNr)
  keep if cID == 1
  tempfile FodUppg
  save `FodUppg'
  
  use "D:\SCB_ConPol\Stata\RTB\migrationer", clear
  keep if PostTyp == "Inv" 
  
  gen InvAr = floor(Datum/10000)
  
  keep if inrange(InvAr, 1974, 2014)
  
  bysort LopNr InvAr: egen cID = count(LopNr)
  keep if cID == 1
  
  merge m:1 LopNr using "D:\SCB_ConPol\Stata\RTB\FodelselandIFAUGrupp.dta"
  keep if _merge == 3
  drop _merge
  
  merge m:1 LopNr using `FodUppg'
  keep if _merge == 3
  drop _merge
  
 foreach yr of numlist 1974/2014 {
   di `yr'
   merge 1:1 LopNr InvAr using `RTB`yr'', update
   drop if _merge == 2
   drop _merge 
 } 
  
  //  Create a variable that records flyktinginvandring (here I follow the scheme in Table A2 Åslund and Fredriksson")	
  gen FlyktInv=0
  replace FlyktInv=1	if IFAUkod==29
  replace FlyktInv=1	if IFAUkod==30
  replace FlyktInv=1	if IFAUkod==31
  replace FlyktInv=1	if IFAUkod==35
  replace FlyktInv=1	if IFAUkod==36
  replace FlyktInv=1	if IFAUkod==37
  replace FlyktInv=1	if IFAUkod==40
  replace FlyktInv=1	if IFAUkod==41
  replace FlyktInv=1	if IFAUkod==42
  replace FlyktInv=1	if IFAUkod==43
  replace FlyktInv=1	if IFAUkod==44
  replace FlyktInv=1	if IFAUkod==45
  replace FlyktInv=1	if IFAUkod==46
  replace FlyktInv=1	if IFAUkod==47
  replace FlyktInv=1	if IFAUkod==48
  replace FlyktInv=1	if IFAUkod==50
  replace FlyktInv=1	if IFAUkod==51
	
  drop if IFAUkod == 0
  gen InvTyp = "Nordic" if IFAUkod < 29
  replace InvTyp = "Non-Refugee" if FlyktInv == 0 & mi(InvTyp)
  replace InvTyp = "Refugee" if FlyktInv == 1
  
  save  "E:\ProjData\PlacementCandidacy\utp-PlacementGraph", replace
	
  use "E:\ProjData\PlacementCandidacy\utp-PlacementGraph", clear
  gen InvAlder = InvAr - floor(FodArMan/100)
  keep if inrange(InvAlder, 18, 120)
  
// Mark the 10 municipalities with the highest inflow of refugee immigrants in 1984
  bysort Kommun: egen AntalFlykt_1984 = count(FlyktInv) if InvAr == 1984
  bysort Kommun InvAr: gen occ = _n
  tab AntalFlykt_1984 if occ == 1
  
  gen Flykt84_10 = 0 if Kommun <.
  replace Flykt84_10 = 1 if Kommun == 126
  replace Flykt84_10 = 1 if Kommun == 127
  replace Flykt84_10 = 1 if Kommun == 180
  replace Flykt84_10 = 1 if Kommun == 181
  replace Flykt84_10 = 1 if Kommun == 184
  replace Flykt84_10 = 1 if Kommun == 380
  replace Flykt84_10 = 1 if Kommun == 580
  replace Flykt84_10 = 1 if Kommun == 1280
  replace Flykt84_10 = 1 if Kommun == 1281
  replace Flykt84_10 = 1 if Kommun == 1480
  
  keep Kommun_Storlek InvAr InvTyp Flykt84_10
  collapse (median) Kommun_Storlek (mean) Flykt84_10 , by(InvAr InvTyp)
  
  twoway (line Flykt84_10 InvAr if InvTyp == "Refugee" & inrange(InvAr, 1975, 2005), lpattern(solid) lcolor(black)) || ///
         (line Flykt84_10 InvAr if InvTyp == "Non-Refugee" & inrange(InvAr, 1975, 2005), lpattern(dash) lcolor(black)), ///
		  xlab(1975(5)2005, labsize(small)) graphregion(color(white)) ylab(0.1(.1).7, labsize(small)) yscale(range(., .75)) ///
		  ytitle(Inflow share for the top ten immigrant municipalities, size(small)) xtitle(Year, size(small))
  